home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / basic / qtool4.lzh / AESHARED.BAS < prev    next >
BASIC Source File  |  1987-02-13  |  1KB  |  22 lines
  1. OPTION BASE 0
  2.  
  3. DIM   idx.nam$(10%),xk$(10%,6%),xh%(10%,4%)              ' Index variables
  4. DIM   ae.screens%(10000%)                                ' Screen holding
  5. DIM   ae.fg%(10%),ae.bg%(10%),ae.hg%(10%)                ' Colors
  6. DIM   dialog$(8%)                                        ' Dialog text
  7. DIM   ae.menu$(70%),ae.op%(70%),ae.hlp%(70%)             ' Menu options
  8. DIM   ae.ffld$(300%),ae.ffpr%(300%),ae.flp%(20%,2%)      ' File fielding
  9. DIM   ae.dirs$(10%)                                      ' AE directories
  10.  
  11.  
  12. COMMON SHARED /AE.INDEX/   idx.nam$(),xk$(),xh%()           ' Index variables
  13. COMMON SHARED /AE.COLOR/   ae.fg%(),ae.bg%(),ae.hg%()       ' Color attributes
  14. COMMON SHARED /AE.ERR/     aesb.fatal%,aesb.warning%        ' Sub Routine Errors
  15. COMMON SHARED /AE.SCBUF/   ae.screens%(),ae.sstack%         ' Screen control
  16. COMMON SHARED /AE.DIALOG/  dialog$()                        ' Dialog boxes
  17. COMMON SHARED /AE.MENUS.1/ ae.menu$(),ae.op%(),ae.hlp%()    ' Pull Down Menus
  18. COMMON SHARED /AE.MENUS.2/ mcount%,menu%,menop%             ' Pull Down Menus
  19. COMMON SHARED /AE.FIELDS/  ae.ffld$(),ae.ffpr%(),ae.flp%()  ' File fielding
  20. COMMON SHARED /AE.CONTROL/ ae.dirs$(),ae.sernum$            ' Controls
  21.  
  22.